home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 6
/
Publication_06_19xx_High-Tech_de_Side_B.d64
/
d 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
131 lines
1000 poke56334,peek(56334)or1:rem(NULL)
1010 poke204,1:t=gt:m=gm:j=gj:gosub2110:at=x:rem(NULL)
1020 zu=int((40-len(n$))/2):ifhj/4<>int(hj/4)andhm=1thenl(2)=28:rem(NULL)
1030 ifhm>3and(hj+1)/4<>int((hj+1)/4)thenl(2)=28:rem(NULL)
1040 open1,4,1:open7,4,7:print#1,chr$(27)"e";:print#7,chr$(14);:rem(NULL)
1050 print#1,chr$(27)"l000":print#7," [194]iorhythmus von":print#7:print#7
1060 print#7,left$(" ",zu);:rem(NULL)
1070 print#1,chr$(27)"!";:rem(NULL)
1080 print#1,chr$(27)"x";:print#7,n$:print#1,chr$(27)"y":rem(NULL)
1090 print#1,chr$(27)chr$(34):print#7:print#7:rem(NULL)
1100 n$="geb. am "+t$+",d."+str$(gt)+"."+m$(gm)+str$(gj):rem(NULL)
1110 zu=int((40-len(n$))/2)
1120 print#7,left$(" ",zu)n$:print#7:print#7:rem(NULL)
1130 n$="fuer die [218]eit vom 1. "+m$(hm)+str$(hj):rem(NULL)
1140 zu=int((40-len(n$))/2):rem(NULL)
1150 print#7,left$(" ",zu)n$:print#7
1160 n$="bis zum":rem(NULL)
1170 ifhm=1thenn$=n$+" 31. [196]ezember"+str$(hj):goto1190
1180 n$=n$+str$(l(hm-1))+". "+m$(hm-1)+str$(hj+1)
1190 zu=int((40-len(n$))/2)
1200 print#7,left$(" ",zu)n$
1210 print#1,chr$(27)"l010":print#1,chr$(31)chr$(10+10)
1220 print#7,chr$(15):print#7:print#7:print#7:print#7:print#7:ifhm=1then1270
1230 fora=1tohm-1:forb=1to11
1240 m$(0)=m$(b):m$(b)=m$(b+1):m$(b+1)=m$(0)
1250 l(0)=l(b):l(b)=l(b+1):l(b+1)=l(0):m(0)=m(b):m(b)=m(b+1):m(b+1)=m(0)
1260 nextb,a:m(0)=0
1270 c=0:fora=1to12:ifa>1andm$(a)="[202]anuar"thenhj=hj+1:c=1
1280 m$(a)=m$(a)+str$(hj):zu=int((21-len(m$(a)))/2)
1290 m$(a)=right$(" "+m$(a),len(m$(a))+zu)
1300 m$(a)=left$(m$(a)+" ",21):next:ifc=1thenhj=hj-1
1310 fora=1to12step3
1320 t=1:m=m(a):j=hj:ifm(a-1)>m(a)thenhj=hj+1:j=hj
1330 gosub2110
1340 ta=x-at:g1=ta-33*int(ta/33):s1=ta-28*int(ta/28):k1=ta-23*int(ta/23)
1350 al(a)=ta:t=1:m=m(a+1):j=hj:ifm(a)>m(a+1)thenhj=hj+1:j=hj
1360 gosub2110
1370 ifl(a+1)=28orl(a+1)=29thenx=x+3
1380 ta=x-at:g2=ta-33*int(ta/33):s2=ta-28*int(ta/28):k2=ta-23*int(ta/23)
1390 al(a+1)=ta:t=1:m=m(a+2):j=hj:ifm(a+1)>m(a+2)thenhj=hj+1:j=hj
1400 gosub2110
1410 ta=x-at:g3=ta-33*int(ta/33):s3=ta-28*int(ta/28):k3=ta-23*int(ta/23)
1420 al(a+2)=ta:print#7," "m$(a)" "m$(a+1)" "m$(a+2):print#7
1430 s1$=chr$(45)+chr$(45)+chr$(45)+"[206][197][199]."+chr$(45)+chr$(45)+chr$(45)
1440 s1$=s1$+chr$(45)+chr$(45)+chr$(45)+chr$(45)+"[208][207][211]."
1450 s1$=s1$+chr$(45)+chr$(45)+chr$(45)
1460 print#7," "s1$" "s1$" "s1$
1470 forb=1to31:b$=right$(str$(b),2)
1480 s1$=".........."+chr$(125)+"..........":s2$=s1$:s3$=s1$
1490 ifb>l(a)then1540
1500 g1=g1+1:s1=s1+1:k1=k1+1
1510 ifg1>33theng1=1
1520 ifs1>28thens1=1
1530 ifk1>23thenk1=1
1540 ifb>l(a+1)then1590
1550 g2=g2+1:s2=s2+1:k2=k2+1
1560 ifg2>33theng2=1
1570 ifs2>28thens2=1
1580 ifk2>23thenk2=1
1590 ifb>l(a+2)then1640
1600 g3=g3+1:s3=s3+1:k3=k3+1
1610 ifg3>33theng3=1
1620 ifs3>28thens3=1
1630 ifk3>23thenk3=1
1640 :
1650 ifb>l(a)thenprint#7," ";:goto1700
1660 s1$=left$(s1$,g(g1)-1)+"[199]"+mid$(s1$,g(g1)+1)
1670 s1$=left$(s1$,s(s1)-1)+"[211]"+mid$(s1$,s(s1)+1)
1680 s1$=left$(s1$,k(k1)-1)+"[203]"+mid$(s1$,k(k1)+1)
1690 print#7,b$" "s1$;
1700 ifb>l(a+1)thenprint#7," ";:goto1750
1710 s2$=left$(s2$,g(g2)-1)+"[199]"+mid$(s2$,g(g2)+1)
1720 s2$=left$(s2$,s(s2)-1)+"[211]"+mid$(s2$,s(s2)+1)
1730 s2$=left$(s2$,k(k2)-1)+"[203]"+mid$(s2$,k(k2)+1)
1740 print#7," "b$" "s2$;
1750 ifb>l(a+2)thenprint#7," ";:goto1800
1760 s3$=left$(s3$,g(g3)-1)+"[199]"+mid$(s3$,g(g3)+1)
1770 s3$=left$(s3$,s(s3)-1)+"[211]"+mid$(s3$,s(s3)+1)
1780 s3$=left$(s3$,k(k3)-1)+"[203]"+mid$(s3$,k(k3)+1)
1790 print#7," "b$" "s3$
1800 nextb:print#7:print#7
1810 nexta:print#7:print#7:print#7:print#7
1820 print#7,"[206]ach der [212]heorie des [194]iorhythmus gibt es 3 [218]yklen in [201]hrem [204]eben";
1830 print#7,", die mit":print#7,"dem [212]ag der [199]eburt beginnen:":print#7
1840 print#7," [199] = geistiger [218]ustand, [218]yklusdauer 33 [212]age"
1850 print#7," [211] = seelischer [218]ustand, [218]yklusdauer 28 [212]age"
1860 print#7," [203] = koerperlicher [218]ustand,[218]yklusdauer 23 [212]age"
1870 print#7:print#7,"[201]hr allgemeines [215]ohlbefinden wird allerdings nicht nur";
1880 print#7," vom [194]iorhythmus":print#7,"beeinflusst, sondern ";
1890 print#7," auch von [203]rankheiten, [211]tress und [213]mwelteinfluessen.":print#7
1900 print#7,"[196]a sich die [215]issenschaft bis heute noch nicht darueber ";
1910 print#7," einig ist, ob":print#7,"und in wie weit der [194]iorhythmus unser ";
1920 print#7,"[204]eben beeinflusst, sollten [211]ie nicht":print#7,"unbedingt nach den";
1930 print#7," [203]urven leben.":print#7
1940 print#7,"[211]ollten [211]ie also mal einen schlechten [212]ag erwischen und die ";
1950 print#7,"[203]urven des":print#7,"[194]iorhythmus im negativen [194]ereich sein,";
1960 print#7," dann wissen [211]ie jedenfalls wer":print#7,"[211]chuld an [201]hrer";
1970 print#7," [214]erfassung ist."
1980 fora=1to16:readav:ifav=>al(1)andav<=al(12)+l(12)thena=16:goto2000
1990 nexta:goto2090
2000 fora=1to12:ifav=>al(a)andav<=al(a)+l(a)thenb=a:a=12:goto2020
2010 nexta:
2020 fora=2tob:ifm(a-1)>m(a)thenj1=j1+1
2030 nexta:t=av-al(b):m=m(b):j=j1:gosub2110
2040 print#7:print#7:print#7,"[201]ch habe noch einen [199]rund zum [198]eiern fuer [211]ie :"
2050 print#1,chr$(27)"x":print#7
2060 print#7,"[193]m "t$", dem "right$(str$(t),2)"."right$(str$(m(b)),2)".";j1;
2070 print#7,"werden [211]ie"av"[212]age alt"
2080 print#1,chr$(27)"y"
2090 print#1,chr$(31)chr$(10+20):print#1,chr$(27)"l000":close1:close7
2100 print" noch einmal ? (j/n)"
2102 geta$:ifa$<>"j"anda$<>"n"then2102
2104 ifa$="n"thenforx=2100to2200:pokex,0:next:sys64738
2106 run
2110 rem alter und wochentag
2120 z=0:ifm<2theny=(m-1)*31:goto2160
2130 ifj/4<>int(j/4)then2150
2140 ifj/100<>int(j/100)thenz=1
2150 y=int((306*m-324)/10)
2160 z=z+int(j-1)*365+int((j-1)/4)
2170 z=z-int((j-1)/100)+int((j-1)/400)
2180 x=z+y+t:w=(x-int(x/7)*7)+1
2190 onwgoto2200,2210,2220,2230,2240,2250,2260
2200 t$="[211]onntag":return
2210 t$="[205]ontag":return
2220 t$="[196]ienstag":return
2230 t$="[205]ittwoch":return
2240 t$="[196]onnerstag":return
2250 t$="[198]reitag":return
2260 t$="[211]amstag":return